library(plotly)
ggplotly(
ggplot(filter(pronoun_use_time_group_collective, num_comments > 1500),
aes(x=time_block,y=collective,name=subreddit,color=all_topics, size = num_comments)) +
geom_point() + geom_smooth() + geom_vline(xintercept = 316)
)
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
Computation failed in `stat_smooth()`:
x has insufficient unique values to support 10 knots: reduce k.
pronoun_use_time_group_collective %>%
mutate(day = round(time_block)) %>%
group_by(day,topic_level2) %>%
summarise(
num_comments_day = sum(num_comments),
collective = sum(collective*num_comments)/num_comments_day
) %>% #filter(subreddit == "The_Donald") %>%
ggplot(aes(x=day,y=collective))+#,size = num_comments_day, color = topic_level2)) +
geom_point() + geom_smooth() + geom_vline(xintercept = 316) + facet_wrap(~topic_level2) +
scale_y_continuous(limits = c(0.05,0.3))

NA
Create offsets to normalize use rates
pronoun_use_time_group_collective <- pronoun_use_time_group_collective
ggplotly(
ggplot(filter(pronoun_use_time_group_collective, subreddit %in% c("The_Donald","hillaryclinton")) ,
aes(x=time_block,y=ZNcollective, color = subreddit))+#,size = num_comments_day, color = topic_level2)) +
geom_point() + geom_smooth() + geom_vline(xintercept = 316) +
scale_y_continuous(limits = c(-50,200))
)
`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
Removed 45 rows containing non-finite values (stat_smooth).
LS0tCnRpdGxlOiAiMDRfdGltZV9ncm91cF9ldmVudF9hbmFseXNpcyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkocGxvdGx5KQoKZ2dwbG90bHkoCiAgCiAgZ2dwbG90KGZpbHRlcihwcm9ub3VuX3VzZV90aW1lX2dyb3VwX2NvbGxlY3RpdmUsIG51bV9jb21tZW50cyA+IDE1MDApLCAKICAgICAgICAgYWVzKHg9dGltZV9ibG9jayx5PWNvbGxlY3RpdmUsbmFtZT1zdWJyZWRkaXQsY29sb3I9YWxsX3RvcGljcywgc2l6ZSA9IG51bV9jb21tZW50cykpICsKICAgIGdlb21fcG9pbnQoKSArIGdlb21fc21vb3RoKCkgKyAgZ2VvbV92bGluZSh4aW50ZXJjZXB0ICA9IDMxNikKICAKKQpgYGAKCgpgYGB7cn0KCmNhdGVnb3J5X2FnZ3MgPC0gcHJvbm91bl91c2VfdGltZV9ncm91cF9jb2xsZWN0aXZlICU+JQogIG11dGF0ZShkYXkgPSByb3VuZCh0aW1lX2Jsb2NrKSkgJT4lCiAgZ3JvdXBfYnkoZGF5LHRvcGljX2xldmVsMikgJT4lCiAgc3VtbWFyaXNlKAogICAgbnVtX2NvbW1lbnRzX2RheSA9IHN1bShudW1fY29tbWVudHMpLAogICAgY29sbGVjdGl2ZSA9IHN1bShjb2xsZWN0aXZlKm51bV9jb21tZW50cykvbnVtX2NvbW1lbnRzX2RheQogICkgCgpjYXRlZ29yeV9hZ2dzICU+JQogIGdyb3VwX2J5KGFnZ19uYW1lKQoKCmNhdGVnb3J5X2FnZ3MgJT4lCiAgZ2dwbG90KGFlcyh4PWRheSx5PWNvbGxlY3RpdmUpKSsjLHNpemUgPSBudW1fY29tbWVudHNfZGF5LCBjb2xvciA9IHRvcGljX2xldmVsMikpICsKICBnZW9tX3BvaW50KCkgKyBnZW9tX3Ntb290aCgpICsgZ2VvbV92bGluZSh4aW50ZXJjZXB0ICA9IDMxNikgKyBmYWNldF93cmFwKH50b3BpY19sZXZlbDIpICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGltaXRzID0gYygwLjA1LDAuMykpCiAgCgoKYGBgCgpDcmVhdGUgb2Zmc2V0cyB0byBub3JtYWxpemUgdXNlIHJhdGVzCmBgYHtyfQoKcHJvbm91bl91c2VfdGltZV9ncm91cF9jb2xsZWN0aXZlIDwtIHByb25vdW5fdXNlX3RpbWVfZ3JvdXBfY29sbGVjdGl2ZSAKZ2dwbG90bHkoCiAgZ2dwbG90KGZpbHRlcihwcm9ub3VuX3VzZV90aW1lX2dyb3VwX2NvbGxlY3RpdmUsIHN1YnJlZGRpdCAlaW4lIGMoIlRoZV9Eb25hbGQiLCJoaWxsYXJ5Y2xpbnRvbiIpKSAsCiAgICAgICAgIGFlcyh4PXRpbWVfYmxvY2sseT1aTmNvbGxlY3RpdmUsIGNvbG9yID0gc3VicmVkZGl0KSkrIyxzaXplID0gbnVtX2NvbW1lbnRzX2RheSwgY29sb3IgPSB0b3BpY19sZXZlbDIpKSArCiAgZ2VvbV9wb2ludCgpICsgZ2VvbV9zbW9vdGgoKSArIGdlb21fdmxpbmUoeGludGVyY2VwdCAgPSAzMTYpICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGltaXRzID0gYygtNTAsMjAwKSkKKQpgYGAKCg==